home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 2
/
LIGHT-ROM 2 (Amiga Library Services)(1995).iso
/
programs
/
amiga
/
jpeggers
/
peggdemo
/
pegr2dem.lha
/
PEGGER_Demo
/
Install PEGGER
< prev
next >
Wrap
Text File
|
1994-08-29
|
1KB
|
69 lines
; Install PEGGER
(set @default-dest "T:")
(transcript "Installing PEGGER Libraries")
(working "Installing PEGGER Libraries" )
(copylib
(transcript "copylib")
(prompt "Installing the pegger.library.")
(help @copylib-help)
(source "Libs/pegger.library")
(dest "LIBS:")
(confirm)
)
(copylib
(transcript "copylib")
(prompt "Installing the peggersnoop.library.")
(help @copylib-help)
(source "Libs/peggersnoop.library")
(dest "LIBS:")
(confirm)
)
(copylib
(transcript "copylib")
(prompt "Installing the dctv.library.")
(help @copylib-help)
(source "Libs/dctv.library")
(dest "LIBS:")
(confirm)
)
(set pegger_dir (expandpath ""))
(set @default-dest pegger_dir)
(transcript "Creating PEGGER data files.")
(working "Creating PEGGER Data Files" )
(set dataok
(run (cat "C/PeggerCreate " (cat "\"" pegger_dir "\"")) )
)
(if (= dataok 0)
((set dataok
(askbool
(prompt "Could not create all of PEGGER's data files."
" Proceed with PEGGER installation?")
(help)
(choices "Proceed" "Cancel")
)
)
(if (= dataok 1)
(transcript "PEGGER Installation Aborted")
(exit "PEGGER Installation Aborted")
))
)
(tooltype
(dest (tackon pegger_dir "PEGGER"))
(settooltype "PEGGER_DIR" (cat "\"" pegger_dir "\""))
(settooltype "BACKUP_TEMP_DIR" (cat "\"" pegger_dir "\""))
)
(transcript "Installation Completed")
(exit "PEGGER Demo installation completed")